home *** CD-ROM | disk | FTP | other *** search
/ You're the Director / You're The Director.iso / pc / macf / mspa.dir / 00219.ls < prev    next >
Encoding:
Text File  |  1995-10-10  |  826 b   |  38 lines
  1. on mouseUp
  2.   global prev, gSound, MovieSeq, gSpeed
  3.   repeat with x = 3 to 5
  4.     puppetSprite(x, 1)
  5.     set the visible of sprite x to 0
  6.     puppetSprite(x, 0)
  7.   end repeat
  8.   puppetSprite(3, 1)
  9.   set the visible of sprite 3 to 1
  10.   puppetSprite(3, 0)
  11.   updateStage()
  12.   set gSpeed to 1
  13.   if prev > 0 then
  14.     set prev to 0
  15.     set the visible of sprite 19 to 0
  16.     repeat with x = 13 to 18
  17.       set the visible of sprite x to 1
  18.       puppetSprite(x, 0)
  19.     end repeat
  20.   end if
  21.   set the soundLevel to gSound
  22.   puppetSound("OPEN.AIF")
  23.   updateStage()
  24.   stopQT()
  25.   repeat with x = 3 to 7
  26.     set the visible of sprite x to 1
  27.     puppetSprite(x, 0)
  28.   end repeat
  29.   set MovieSeq to 0
  30.   setbar()
  31.   repeat with x = 46 to 47
  32.     puppetSprite(x, 1)
  33.     set the visible of sprite x to 0
  34.     puppetSprite(x, 0)
  35.   end repeat
  36.   go("no")
  37. end
  38.